RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE®*1D**QUTXHR 
000000 UU UU TITTTTTTTTT Xx XX HH HH RRRRRRRR ; 
000000 UU UU TTTTTTTTTT Xx XX HH HH RRRRRRRR ; 
00 00 UU UU TT XX XX HH HH RR RR : 
00 00 UU UU TT XX XX HH HH RR RR 
00 00 UU UU TT XX XX HH HH RR RR 
00 00 UU UU TT XX XX HH HH RR RR 
00 00 UU UU TT XX HHHHHHHHHH = RRRRRRRR 
00 00 UU UU TT XX HHHHHHHHHH = RRRRRRRR 
00 00 UU UU TT XX = XX HH HH RR RR 
00 00 UU UU TT XX = XX HH HH RR RR 
00 00 UU UU TT XX XX HH HH RR RR eoee 
00 00 UU UU TT XX XX HH HH RR RR eos 
000000 WUUUUUUUUU TT XX XX HH HH RR RR eoee 
000000 UUUUUUUUUU TT XX XX HH HH RR RR eos 
LL IIIT] SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] Ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 


14 
Enters characters into index flag buffer 1-56 -1984 01:23: AX-11 Bliss-32 V4.0-74 P 
. 1exgeh=}882 Sh:g7i8s HANNAH Ok isgc3e Me -Or7 st 


ZTITLE ‘Enters characters ate index flag buffer’ 
POP ULE Op TXHA ( IDENT = ‘Vv04-000' 
ADDRESSING_MODE (EXTERNAL =LONG_RELATIVE ,NONEXTERNAL=LONG RELATIVE) 


de 
BEGIN 


leuteuneaneneeneententennnenneceeereereceetnetentententeeneennenennntentetts 
'e ‘ 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
ke ALL RIGHTS RESERVED. : 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION CF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHEF * 
'e COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. : 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
‘* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
'e * 
'® DIGITAL ASSUMES NO RESPONS * 
- SOFTWARE ON EQUIPMENT WHIC * 
' * 
i 

seamen Insesesenesnbenibnekeneteienberensebeneneneebunsenanennnennedeenenete 
i 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 


OOOoCooooooooooooooooooooooooo 
polo lolol wl aloo ololololelololololololololalelolelololololo) 
NMPMINMPONINININ 2 2 2 SS SIO 


WAAR 


ise 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: Enter a single character into the Index flag buffer. 


WN O DONO USWN “OC ODNOUE WN" OOCONOUE Wh 


ENVIRONMENT: Transportable 
AUTHOR: R.W. Friday CREATION DATE: December, 1978 


ODONAUL WN $9 ODNOUN EWN (OO ODNAOUE WN (OO DNOULS wr 


Ssssssss 
OOOooCoooo 
WAAWNI WWI WI 


- 
So 
a a a kk a tk at ot ot ot ot tt I I OQOOOCOO 


Bete Se Fe Se Ge Se Ge FHSS Se Be He Oe Se Bs Ge Se FSF SSH HSE SE SE SESE SE Se Se Se SESE Ss Seas SeSseeses 


SS enn 


—COOOnNO 


Oo 
S 
& 
— 


1 
(1) 


zn 
es 


PUPP SII EB 
DONO WI" OODONOuUS 
SoQoQoooooooooooooo 
PPIVIVIVIVI ES SEEPS <et 
NOUS AN —OODONOUL Wy 22 
— ed ts td a 


Sooooooo 


pth booty into index flag buffer 16- Sep p- 1384 O4: $3: 3 AX-11 a shoctute ree Page 2 


RUNOF F R.BLI; 


SBTTL ‘Revision History’ 
MODIFIED BY: 


x 

' 

i 

i 

i 010 Rod} veg Ray Marshall 17-November-1983 

i mel 7. the By we look at the ooresrit output. We strip 

he ." gh order bit so we can still check in the same 
r ble. 

i (] “don! t know what happened in IDENTs 7 ghrough 9. When I 

started this edit e IDENT was at 00 

i 

i 

= 


006 AD00006 Keith Dawson 07-Mar-1983 
Gtobet edit of all ll re Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


Bete Ge Ge Se Se Ge Ge Se Se Se Ge Se Ge Ge Ge Se Se Se Se Se se Se Se Se Se Se Se Se Se Se Fe Se Se eee See Se Se estees 


RSSSESS 


Wr 


ot et et es es ot st = 
—=—S0000 
=SSeuSn 


MIMIPIUININVIOO: 


: 
ss 
65 
5 
i 
88 
i 
9 
' 
15 
i3 
18 
: 
: 
5 
; 
: 
% 
38 


rs characters into index flag buffer 
le Level Declarations 


XSBTTL ‘Module Level Declarations’ 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
OUTXPH : NOVALUE; 


' 
! INCLUDE FILES: 

ARY ‘NXPORT: XPORT" ; 
IRE "REQ:RNODEF'; 


DSRPLUS XTHEN 
ARY ‘REQ:DPLLIB'; 


ARY ‘REQ:DSRLIB'; 


cw» 


_——— LITERAL 
RINTES : UNSIGNED (8); 
EXTERNAL LITERAL 
RNF ITC; 
OWN STORAGE: 


EXTERNAL REFERENCES: 


EXTERNAL 
GCA : GCA_DEFINITION, 
SCA : SCA_DEFINITION, 
TSF : TSF_DEFINITION, 
MRA : REF-FIXED STRING, 
XMRA : FIXED STRING, 
XTSF : VECTOR; 
EXTERNAL ROUTINE 
ERML 
BUTLIN: 


ieSeortage 01:38:83 


N i 
AX-11 Bliss-32 V4.0-7 


' XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


‘Error messages 


RUNOFF .SRCJOUTXHR. BL; 


< 


Be Se Be Se Se Se Se Se Be Se Se Se Se Se Fe Ge Se Fe Fe Se Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Se Se Se Se Se See Ge See Se Fe Se Ss Se Se Ge Se Ss esse te Se Se Sseeseaes 


ae ee ee ee eee eet 


o 
ww 


aon 


BO SGU oe Serta 
WO OONOUSWN OOD NO UENO OONOU EWIDO ODONOULS WN" OVDONOULSW 


d= 
So» 


LF 


ele) 


15 
rs characters into index flag buffer 16-8 -1984 223: AX-11 Bliss-32 V4.0-74 
le Level Declarations . 1 ~8ep-19 4 ae RUNOFF .SRC OUT BLT, 


GLOBAL ROUTINE OUTXHR (KHAR) : NOVALUE = 
' 


le¢ 
' FUNCTIONAL DESCRIPTION: 
QUTXHR takes KHAR and puts it, along with ag ot ena codes, 
into the buffer where things marked with the Index flag 
are saved. 
FORMAL PARAMETERS: 
KHAR is the character to be output. 
IMPLICIT INPUTS: 


This code will continue to work correctly only if the ony 
possible values that GCA_XCASE can have is ONE_CAP or LEAVE_CASE. 


Oe eee ee 


IMPLICIT OUTPUTS: None 
ROUTINE VALUE: 
COMPLETION CODES: None 
? SIDE EFFECTS: None 
6 
3 BEGIN 
9 LOCAL 
0 HOLD_TSF, 
1 XCHAR; ‘Actual character to put in index buffer 


‘Assume character needs no translation. 
XCHAR = .KHAR; 
'Now see if it needs translation. 


WTO NROPOPIPIPIPONINIPI POI NPIDI AANA POPPIN PIPPIN 9 9 8 9 9 St St 


6 

7 IF NOT (.SCA_FRC_CHR 

8 OR™..SCR_WORD_SET 

9 OR .SCA-FRC_CASE 

0 — OR (.GCA_XCASE EQL LEAVE_CASE)) 

‘Character needs to be translated. 

4 IF LETTER (.XCHAR) 

$2 THEN 

ag 'Only letters get translated, and this is one. 

88 IF_ .FS_LENGTH (XMRA) EQL 0 

89 THEN 

90 'The first character of the word, if it's a letter, 
0291 iaete translated to upger case. 
0 4 ‘NOTE: Implicit here is that GCA_XCASE is specifying ONE_CAP 

94 IF LOWER_LETTER (.XCHAR) 

95 THEN 

96 XCHAR = UPPER_CASE (.XCHAR) 


a 


<v 
54 


Be Se Be Ge Oe Be Be Be He Se Ge Se Se Se Se Se Se Se Se Be ee BH Se Se Ge Se Se Se eee Se Se SH Se Se Se ee Se Se Se Se ee Seas 


—_ 
~ 
o 


DOOD OWOWDOWOWOWOON NAAN 
CONAN WN OO ODONAUE WN" OVDONOULS WN 


NOPONONONONY 2 2 ts ss i 
ooono 


ooooego 
SRFaNlLS3 


MIPUPONIPININIPNY 
S Sooo 
owvuown~ 


OUilWN—OOONOuswn— 


NOPOPONOPONORY os a 


Nonofononsonfopnorony 


‘Now, put the character into the Index flag buffer. a 
‘First, check for underlining. Note that only underlining on a ‘per 
‘character’’ basis is optehy enough to get into the index. l.e., “8A 
'gets indexed as ‘A’, but 8A 

IF_ .SCA_WRD_AC_UND 


really does get underlined. 


H 
'‘Underlining was forced for this character. 


a 
2 


I 
WCHAR (XMRA, RINTES); 
pe (XMRA, 2C'U'); 


Mm 

4 
mama ow 
zZzuwnvnenm 
oOo 


15 
rs characters into index flag buffer 1b-5¢ -1984 01:23: AX-11 Bliss-32 V4.0-74 
le Level Declarations . 1 ~8ep-19 4 93:63:38 RUNOFF SRC JOUTXHR-BLI: 
ELSE 
(0) 
ELSE 
‘Other letters in the word get translated 
'to lower case. 
IF UPPER_LETTER <.XCHAR) 
THEN 
XCHAR = LOWER_CASE (.XCHAR); 
'Switch to Index flag work area. 
HOLD_TSF = .TSF; 
TSF = XTSF; 
‘First, be sure there's room enough to save the entry. 
BEGIN 
LOCA 
3 NEEDED; 
; NEEDED = 0; 
IF .SCA_WRD_AC_UND 
3 THEN 
H NEEDED = 3; 
: IF .SCA_WRD_AC_BLD 
THEN 
3 NEEDED = .NEEDED + 3; 
; NEEDED = .NEEDED + 1; 
; Ce + .NEEDED) GTR .FS_MAXSIZE (XMRA) 
? ion fit. Tell user and terminate in the middle of this phrase. 
& TSF = .HOLD_TSF; ‘Restore ‘real’ TSF. 
4 ERML(RNFITCY; 
4 OUTXPH (); 
4 RETURN; 
3 END; 
END; 


P i 
ial 


2 


i 
dD 15 
XHR Enters characters into index flag buffer 16-Se 4 AX11 Bliss-32 V4.0-74 Pp 

-000 Module Level Declarations 8 14- a 1382 9}: 63; 33 RUNOFF .SRCJOUTXHR.BLI; _ af 
; 7 4 'Now put the cheracter itself in. 3 
5 208 5 FS _WCHAR (XMRA, .XCHAR); ; 
; ; § TSF_INT_HL = .fSF_INT_HL + 1; 
: 231 28 IF (.XCHAR AND %X'7F") GEQ xc’ ° : 
: : 39 AND (.XCHAR AND %X'7F') LSS %0'177° 
: 234 61 TSF_EXT_HL = .TSF_EXT_HL + 1 ; 
: 5 8 $6 ELS ~ eas eS : 
: : 8 o item -XCHAR EQL %0'010' 'Backspace??? : 
; $38 0365 Bock Pe MO ie 1 aS HL = 1; 
PEt ee Eh Eh aetedl wk priecy tie : 
Py -oW1tc ac Oo primar r Py 
: ue 0369 vs ust: : 
s 2 0370 1 END; 'End of OUTXHR : 
.TITLE OUTXHR Enters characters into index flag buffer : 
[IDENT \V04=000\ 3 
.EXTRN RINTES, RNFITC, GCA : 
“EXTRN SCA, TSF, XARA ; 
-EXTRN XTSF, ERML, OUTLIN | ; 
-PSECT $CODES,NOWRT,2 : 
007¢ 90000 .ENTRY OUTXHR, Save R2,R3,R4,R5,R6 : 0240 : 
56 000000006 EF 9 00002 MOVAB SCA+206, R6 : F 
55 00000000G EF 9€ 00009 MOVAB TSF, : : 
54 00000000G EF 9€ 00010 MOVAB XMRA+4, R4 : ; 
5 04 AC DO 00017 MOVL KHAR, XCHAR + 0274 : 
é 10 A6é €8 0001B BLBS  SCA+216, 4 : 0277 ; 
SF 98 Aad E8 OOODIF BLBS  SCA+96, 4$ : 0278 : 
5B D8 AB E8 00023 BLBS ScAvi66, 4$ : 0279 3 
000000006 FF D3 90027 TSTL  aGCA+ + 0280 : 
53 13 0002D BEQL 4$ : : 
50 D4 0002F CLRL = RO + 0284 : 
00000041 = 8F 52 D1 00031 CMPL  XCHAR, #65 : ; 
08 19 000 8 BLSS 1$ : ; 
50 D6 O003A INCL RO : ; 
0000005A_ —8F 52 D1 0003 CMPL = XCHAR, #90 : : 
12 15 0045 BLEG : : 
00000061 = 8F D1 00045 1$ CMPL §_ XCHAR, #97 : : 
4 19 0004C BLSS : ; 
0000007A_ = 8F 2 01 00045 CMPL _ XCHAR, #122 : : 
2B 14 0005 BGTR : : 
08 Ad D5 00057 28 TSTL § XMRA+12 : 0288 : 
17 if O09, BNEQ : : 
00000061 = 8F 52 D 9 CMPL  XCHAR, #97 > 0294 : 
1D 19 0006 BLSS ; : 
0000007A_ = 8F 52 D1 0006 CMPL §_ XCHAR, #122 : : 
52 3 3 6 et Bot? #82. XCHAR : 9296 : 
it t¢ 0 f BRB " wéing : 0994 : 
0c 0 £9 00073 3$ BLBC ~—- RO, 4$ > 0304 : 

} 


15 
TXHR Enters characters into index flag buffer 1hese -1984 123: AX-11 Bliss-32 V4.0-742 Page 7 
y04-000 Module Level Declarations . 1a-Sep- 38 94:63:38 RUNOFF .SRCJOUTXHR.BLI;1 . (4) 
0000005A BF D1 00076 CMPL = XCHAR, #90 : 
14 0007D BGTR 4 : 
; C9 7F ADDL2 #32, XCHAR + 0306 
é p 00 : 4$: MOVL TSF, HOLD_TSF + 0309 
65 000000006 EF 9E 0 MOVAB XTSF, TSF : 310 
0 D4 0 C CLRL NEEDED + 031 
03 $6 1 £1 f00 BBC #1, SCA+200, 5$ : 0319 
9 3 09 00 MOVL #3, NEED + 0321 
g E 009 5$: BLBC shee 6$ + 0323 
0 CO 00098 ADDL2 #3, NEEDED > 0325 
D6 00098 6S: INCL. NEEDED : 0327 
50 00 8? C 9 ADDL2 aTSF, RO + 0329 
04 Ad D Al CMPL RO, XMRA+8 : 
18 15 000A5 BLEG 36s 7$ ; 
45 53 D0 000A7 MOVL HOLD_TSF, TSF : 0333 
000000006 BF DD OOOAA PUSHL #RNFITC + 0334 
000000006 EF gi FB 00080 CALLS #1, ERML ; 
00000000v_ ‘EF 0 FB 00087 CALLS #0. OUTXPH + 0335 
04 OO00BE RET + 0332 
21 a4 01 Fi 0008F 7$: BBC #1, SCA+200, 8$ + 0344 
00 B4 006 8F 90 000C3 MOVB #RINTES, @XMRA+4 : 0348 
64 D6 900¢8 INCL XMRA+4 : 
08 A& 06 OOOCA INCL  XMRA+12 : 
00 B4 55 BF 90 000CD MOVE #85, aXMRA+4 + 0349 
64 D6 00002 INCL  XMRA+4 ; 
08 AS D6 U90D4 INCL XMRA+12 3 
00 B4 20 90 00907 MOVE #32, @XMRA+4 + 0350 
64 D6 000DB INCL XMRA+4 ; 
08 A4 D6 99400 INCL. XMRA+12 ; 
00 BS 03 CO O00EO ADDL2 #3, aTSF > 0351 
00 B4 52 90 OOOE4 8S: MOVE XCHAR, @aXMRA+4 : 0355 
64 D6 OO0ES INCL  XMRA+4 : 
08 A4 D6 OOOEA INCL § XMRA+12 ; 
50 65 DO OO00ED MOVL TSF, RO ; 
60 D6 000FO INCL (ROS : 0356 
20 52 07 00 ED 000K 2 CMPZ2V #0, #7, XCHAR, #32 : 0358 
10 19 OOOF BLSS 9$ ; 
0000007F &F 52 07 00 ED 000F9 CMPZV #0, #7, XCHAR, #127 : 0359 
05 18 00102 BGEQ : 
04 AO 06 00104 INCL  4(RO) > 0361 
98 11 00707 BRB 10$ : 
08 : D1 00109 9S: CMPL = XCHAR, #8 : 0363 
0 if 0010C¢ BNEQ 10$ ; 
04 A0 D 00105 DECL 4 (RO) > 0366 
65 53 00 00111 10$:  MOVL #§HOLD_TSF, TSF > 0369 
04 00114 RET : 0370 


3; Routine Size: 277 bytes, Routine Base: $CODE$ + 0000 


vous 


r> 
Now 


PEED MAMAN 01 


WN OCOONOULSWN—OO® 


PIPIPURIPIPOPOPIPIPINONONINIPOPU NNO NNN PUP PoNoNnony 


SSSSLESRANLSESELSEALAT ALS SSNSARUNASSSISAF 


HR 
000 


410 


SoOooooo 
PP oP oP oT or ar 


PROROPOPOPOPONOND 2 


Fa 


NOUS UN OOONOUES WN — 


PAPAIN ALAA LALAPIPIPINIPYAPINIPININIM NINN NIN IA| YD) a a i tk tk tk td ot 


le Level Declarations 


RUNOFF .SR 


rs characters into index flag buffer 1b-Fep-1944 HY AX-11 Oleg V4.0-7 


GLOBAL ROUTINE OUTXPH : NOVALUE = 


+4 
: FUNCTIONAL DESCRIPTION: 


OUTXPH is called to output a word collected by the agtien of 

the Index flag. At the same time, it turns off the index flag. 

Note that this routine is currently NOT called when a .SUBINDEX, 
INDEX, or .ENTRY command is being processed. In later enhancements 
it could be made possible to allow the Index flag to be active during 
the procera of one of these commands. However that is not the 
case at this time. 


FORMAL PARAMETERS: None 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 


CAL 
TSF _HOLD, 


MRA_HOLD, 
XTN; 


'Preserve current buffer status. 

TSF _HOLD = .TSF; 

MRA_HOLD = .MRA; 

‘Set up buffers where Index flag is doing its work. 
TSF = XTSF; 


MRA = XMRA; 
‘Output the collected word only if there is one. 


IF .TSF_INT_HL NEQ 0 
THEN 


BEGIN 
‘Allocate a transaction number for this entry. 


XTN = .GCA_NORMAL_XTN; 
GCA_NORMAL_XTN = .GCA_NORMAL_XTN + 1; ‘Bump for next index entry 


'Now associate the transaction number with the entry. 
TSF_FIRST_XTN = .XTN; 

TSF-LAST_RIN = .XTN; 

‘And finally, attach the same transaction number to the 
‘word in the text to which this applies. 


IF .SCA_WRD_F_XTN EQL 0 
THEN 


OUTXHR.BLI 


4 


15 
TXHR Enters characters into index flag buffer 18-5¢ -1984 01:23: AX-11 Bliss-32 V4.0-74 

yo4~000 Module Level Declarations ° 1 =300 1582 04:83:38 RUNOFF .SRCJOUTXHR.BLI; 
3 oF r : SCA_WRD_F_XTN = .XTN; 
; 304 4 SCA_WRD et = .XTN; 
; 305 431 Make this TSF something that goes into the index. 
: 88 4 ¢ TSF_INDEX = TRUE; 
: 30 4 ‘And now 9° output this Line. 
3 UTLIN L 3 

08 434 OUTLIN (FALSE) 
3 4 Oe 5 END; 
s Si , 5 ‘Retrieve previous buffer status. 
; \¢ 04 3 TSF = .TSF_HOLD; 
5 1 8 MRA = .MRA_HOLD; 
: 314 440 ‘Turn off the index flag now, and that's it until next time. 
s 315 0441 ‘Note that SCA_X_FLAG is used only when the Index flag is 
3 1$ 044 ‘active. Failure to turn it off will cause the program to 
3 1 044 ‘Lose coordination with Index flag preqeas ine. ypical 
; 318 0444 ‘symptoms of this problem include the index table getting too 
; 319 0445 ‘Large, or, even more obscurely, normal text being rejected 
; 320 044 ‘because it's too complicated. 
3 21 044 SCA_X_ FLAG = FALSE; 
3 355 0448 RETORA; 
: 3 'End o 

3 0449 7 END 'End of OUTXPH 


OOFC 44 -ENTRY OUTXPH, Save R2,R3,R4,R5,R6,R7 
57 000000006 EF 9E 9002 MOVAB GCA+168, R7 
56 000000006 EF 9€ 0000 MOVAB MIRA, R 
35 900000006 EF 9E 0010 MOVAB TSF, R 
4 000000006 EF 9€E 0001 MOVAB SCA+296, R4& 
53 65 00 O001E MOVL TSF, TSF_HOLD 
52 66 DO 00021 MOVL MRA, MRATHOLD 
65 000000006 EF 9E 00024 MOVAB XTSF, TSF 
66 000000006 EF 9E 000 MOVAB XMRA. MRA 
50 65 00 000 MOVL TSF 
$0 D5 000 TSTL (ROS 
25 13 000 BEQL 28 
51 67 00 00039 MOVL §_GCA+168, XTN 
67 D6 0003C INCL  GCA#1 
38 =A 1 00 000 : MOVL XTN, 56(RO) 
3¢ AO 2} D BR mere es 0(RO) 
3 93 does et 
64 : O4A MOVL =‘ XTN, SCA+296 
04 Ab 1D 4D 1$ MOVL XTN, SCA+300 
14 AO Qi D 0 1 MOVL #1, 20(RO) 
é D4 3 CLRL 0s = ¢ §P) 
000000006 EF F 0 CALLS #1, OUTL 
65 D : 2$ VL -TSF_HOLD, TSF 
66 D 06 MOVL MRA HOLD. MRA 
FF74 OC BA 0064 CLRL = SCA¥1 
4 00068 ET 


; Routine Size: 105 bytes, Routine Base: S$CODE$S + 0115 


PeSe Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Se Ge Se Be Se Se Se Se tee 


; 0371 


oo 
3335 
SREn 


Yin rrr 
moe ANr—Oo-~ 


SP PPE PPPS 


WW 


.+~ oooo OOCOoO 
ooo 


oo 
a 
ee 
on 


15 
TXHR Enters characters into index flag buffer 16-Sep 
yo4~000 dule Le Aidit 12-398: 


vel Declarat 


1 END 
0 ELUDOM 


PSECT SUMMARY 


1986 93:67:35 


'End of module 


Name Bytes Attributes 
SCODES 382 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, 
Library Statistics 
consanes ByGhel§ eooocers Pages 
File Total ipaded Percent Mapped 
5SSDUA28: fT ees -L32;1 590 0 9 252 
55$DUA28 : CRUNOFF . SRCJDSRLIB.L32;1 1248 40 86 


COMMAND QUALIFIERS 


AX-11 B 
RUNOFF CS 


iss-32 V4.0-74 
sre OUTXHR.BLI; 


CON,NOPIC,ALIGN(2) 


Processing 
Time 


00 
00: 


:00.1 
00.3 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:OUTXHR/OBJ=OBJ$:OUTXHR MSRC$:OUTXHR/UPDATE=(ENHS: OUTXHR) 


Size: 382 code + 0 data bytes 
un Time: 0:08.5 

Elapsed Time: 219.5 

Lines/CPU Min: 209 

Lexemes/CPU-Min: 17112 


Y Used: 91 pages 
Compilation Complete 


AL EQUIPMENT CORPORATION 
DENTIAL. AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


034 ae 


